home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  31 lines
  1. 10  REM  PAL.MENU
  2. 15  DIM A$(10):D$ =  CHR$(4)
  3. 20  TEXT : HOME : SPEED= 255
  4. 30  HTAB 14: INVERSE : PRINT " PAL.MENU ": NORMAL 
  5. 1000 I = 0
  6. 1010 I = I +1: IF I >9 GOTO 1200
  7. 1020  READ A$(I): IF A$(I) = "END" GOTO 1200
  8. 1030  PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
  9. 1200  VTAB 23: INVERSE : PRINT "G=GOBACK  S=START OVER  ";
  10. 1210  IF A$(I) < >"END"  THEN  PRINT "M=MORE ";
  11. 1220  NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
  12. 1225  IF R$ = "M"  AND A$(I) < >"END"  THEN 20
  13. 1230  IF R$ = "S"  THEN  RESTORE : GOTO 20
  14. 1240  IF R$ = "G"  THEN  PRINT D$"RUN SOFT.PALS"
  15. 1250 R =  INT( VAL(R$)): IF R >0  AND R <I  THEN  PRINT D$"RUN PAL.";A$(R)
  16. 1260  GOTO 1200
  17. 5000  DATA "04578.STOWERS.JAN.83.A"
  18. 5010  DATA "14482.HOPKINS.JAN.83.A"
  19. 5020  DATA "14615.CURTIN.JAN.83.A"
  20. 5030  DATA "14615.CURTIN.JAN.83.B"
  21. 5040  DATA "19808.MUNROE.JAN.83.A"
  22. 5050  DATA "33515.SMITH.JAN.83.A"
  23. 5060  DATA "43311.DILLE.JAN.83.A"
  24. 5070  DATA "44077.KOERWITZ.JAN.83.A"
  25. 5080  DATA "45205.PERLEBERG.JAN.82.A"
  26. 5090  DATA "48016.MARRACCINI.JAN.83.A"
  27. 5100  DATA "60419.BABICK.DEC.82.A"
  28. 5110  DATA "92064.WEILER.DEC.82.A"
  29. 5120  DATA "92704.VINJE.JAN.83.A"
  30. 5140  DATA "99352.JOYCE.JAN.83.A"
  31. 9999  DATA "END"